﻿#Region "IMPORTS"
Imports DAO
#End Region

Public Class UnidadeMedida
    Inherits Modelo
    Implements IModelo

#Region "ATRIBUTOS"

    Private _unidadeMedidaId As Integer

    Private _descricao As String

    Private _abreveacao As String

#End Region

#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.New()
        Me._unidadeMedidaId = id
    End Sub

#End Region

#Region "PROPRIEDADES"

    Public Property Abreveacao() As String
        Get
            Return _abreveacao
        End Get
        Set(ByVal value As String)
            _abreveacao = value
        End Set
    End Property

    Public Overridable Property UnidadeMedidaId() As Integer
        Get
            Return Me._unidadeMedidaId
        End Get
        Set(ByVal value As Integer)
            _unidadeMedidaId = value
        End Set
    End Property

    Public Overridable Property Descricao() As String
        Get
            Return Me._descricao
        End Get
        Set(ByVal value As String)
            Me._descricao = value
        End Set
    End Property

#End Region

#Region "METODOS OVERRIDES"

    Public Overrides Function ToString() As String
        Return Me.Descricao
    End Function

#End Region
End Class
